Archive/NESCent.code/old fastsimcoal code/fastsimcoal.test.R

In christianparobek/skeleSim: Genetic Simulation Engine

rm(list = ls())
source("set.commonparams.r")
source("set.fastsimcoal.params.r")
source("fastsimcoal.skeleSim.run.r")
source("sim.wrap.fastsimcoal.r")
source("genind.metadata.getter.r")
source("fastsimcoal.skeleSim.read.r")
library(rmetasim)

params <- list(label = "fastsimcoal.test", quiet = FALSE, user_has_data = FALSE)
params <- set.commonparams(params, NULL)
params <- set.fastsimcoal.params(params)
params <- sim.wrap.fastsimcoal(params)